DEFINT A-Z
PLAY "MBMLL20"
PLAY "O3 EFG>C C<FEF G>CEF E<B>CC <GGEF GG>CC D<B>CD FEFDDDD"
WHILE 1
  PLAY "O3GGAAD#EEDD#DCCCCDDD#D#D#DCDEGAEGDECDCEEGGAEGDECD#ED#DCDD#D#CDEGD#EDCDDCCDDGGAAD#EEDD#DCCCCDDD#D#D#DCDEGAEGDECDCEEGGAEGDECD#ED#DCDD#D#CDEGD#EDCDDCCCCCC<GA>CC<GA>CDECFEFGCCCC<GA>C<G>FEDC<FEFG>CC<GA>CC<GA>CCDEC<GAG>CCC<B>C<GA>CFEFGCC<BB>CC<GA>CC<GA>CDECFEFGCCCC<GA>C<G>FEDC<FEFG>CC<GA>CC<GA>CCDEC<GAG>CCC<B>C<GA>CFEFGCCDD"
  IF INKEY$<>"" THEN END
WEND

